home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).adf / LustigeSätze / LustigeSätze (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  1KB  |  46 lines
  1. PRINT "LUSTIGE SÄTZE"
  2. PRINT 
  3. PRINT "In diesem kleinen Spiel wird der Spieler aufgefordert, 4 Sätze zu bilden."
  4. PRINT "Später werden die einzelnen Satzteile durcheinandergewürfelt, so daß"
  5. PRINT "daraus lustige Sätze werden. Dieses Spiel ist auch für 4 Spieler ge-"
  6. PRINT "eignet."
  7. PRINT 
  8. INPUT "<Drücken Sie RETURN> ";k$
  9. PRINT CHR$(12)"SATZ 1"
  10. INPUT "wer ";n$
  11. INPUT "macht was ";o$
  12. INPUT "wie ";p$
  13. INPUT "mit ";q$
  14. PRINT CHR$(12)"SATZ 2"
  15. INPUT "wer ";a$
  16. INPUT "macht was ";b$
  17. INPUT "wie ";c$
  18. INPUT "mit ";d$
  19. PRINT CHR$(12)"SATZ 3"
  20. INPUT "wer ";f$
  21. INPUT "macht was ";g$
  22. INPUT "wie ";h$
  23. INPUT "mit ";i$
  24. PRINT CHR$(12)"SATZ 4"
  25. INPUT "wer ";j$
  26. INPUT "macht was ";s$
  27. INPUT "wie ";l$
  28. INPUT "mit ";m$
  29. PRINT CHR$(12)
  30. PRINT "E R G E B N I S :"
  31. PRINT :PRINT
  32. PRINT "Die neuen Sätze sind jetzt folgende:"
  33. PRINT 
  34. PRINT n$;" ";s$;" ";c$;" mit ";i$
  35. PRINT a$;" ";g$;" ";p$;" mit ";m$
  36. PRINT f$;" ";o$;" ";l$;" mit ";d$
  37. PRINT j$;" ";b$;" ";h$;" mit ";q$
  38. PRINT 
  39. INPUT "Wollen Sie ein neues Spiel ";e$
  40. IF e$ = "j" THEN RUN
  41. PRINT 
  42. PRINT "Ende."
  43.  
  44.  
  45.  
  46.